home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 38 / Amiga Format CD38 (1999-03-15)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-04].iso / -screenplay- / shareware / wreckage / source / blitz / longmul.ascii.bb2.bak < prev    next >
Text File  |  1999-02-08  |  436b  |  40 lines
  1. ;    Dissasembly from Blitz2
  2. ;
  3. ;    MUL32
  4.  
  5.  
  6.     movem.l d2-d4,-(a7)    ; save these
  7.     moveq #0,d2
  8.     tst.l d0
  9.     bpl _br1
  10.     neg.l d0
  11.     moveq #$ff,d2
  12. _br1:
  13.     tst.l d1
  14.     bpl _br2
  15.     neg.l d1
  16.     not.w d2
  17. _br2:
  18.     move.l d0,d3
  19.     move.l d0,d4
  20.     mulu.w d1,d0
  21.     clr.w d0
  22.     swap d0
  23.     swap d3
  24.     mulu.w d1,d3
  25.     add.l d3,d0
  26.     swap d1
  27.     move.l d4,d3
  28.     mulu.w d1,d4
  29.     add.l d4,d0
  30.     swap d3
  31.     mulu.w d1,d3
  32.     swap d3
  33.     add.l d3,d0
  34.     tst.w d2
  35.     beq _br3
  36.     neg.l d0
  37. _br3:
  38.     movem.l (a7)+,d2-d4
  39.     rts
  40.